1 REM ==================================
2 REM    COMMODARES PROBLEM #54-2 :
3 REM       FILE LOCATOR
4 REM    SOLUTION BY
5 REM       LARRY LOUKS & JIM BORDEN
6 REM ==================================
10 DATA 162,1,32,198,255,32,228,255,230,251,208,4,230,252,240,6,165
20 DATA 144,41,64,240,239,76,204,255
30 PRINT"[147]- ALPHA & OMEGA -64 OR 128-":SA=2816:IF FRE(0)=FRE(1) THEN SA=49152
40 FORY=SA TO SA+24: READ K: POKE Y,K: CS=CS+K: NEXT
45 IF CS<>4012 THEN PRINT "DATA ERROR": END
50 INPUT" ENTER FILENAME";PN$: PRINT: FB=251: FC=252: POKE FB,0: POKE FC,0
60 OPEN 1,8,2,"0:"+PN$: GET#1,A$,B$: D=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0))
70 PRINT "STARTS AT" D
80 SYS SA: LN=PEEK(FB)+PEEK(FC)*256: T=D+LN-1
90 PRINT "ENDS AT" T: CLOSE 1